home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / websea1a / search.frm < prev    next >
Text File  |  1999-09-15  |  2KB  |  66 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "WebSearch"
  5.    ClientHeight    =   780
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5415
  9.    Icon            =   "Search.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   780
  14.    ScaleWidth      =   5415
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.Frame Frame1 
  17.       Height          =   700
  18.       Left            =   60
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   5295
  22.       Begin VB.CommandButton cmdSearch 
  23.          Caption         =   "&Search"
  24.          Default         =   -1  'True
  25.          Height          =   350
  26.          Left            =   4320
  27.          TabIndex        =   3
  28.          Top             =   220
  29.          Width           =   855
  30.       End
  31.       Begin VB.ComboBox cmEngines 
  32.          Height          =   315
  33.          ItemData        =   "Search.frx":014A
  34.          Left            =   2760
  35.          List            =   "Search.frx":0172
  36.          Style           =   2  'Dropdown List
  37.          TabIndex        =   2
  38.          Top             =   240
  39.          Width           =   1455
  40.       End
  41.       Begin VB.TextBox txWhatSearch 
  42.          Height          =   315
  43.          Left            =   120
  44.          TabIndex        =   1
  45.          Top             =   240
  46.          Width           =   2535
  47.       End
  48.    End
  49. End
  50. Attribute VB_Name = "Form1"
  51. Attribute VB_GlobalNameSpace = False
  52. Attribute VB_Creatable = False
  53. Attribute VB_PredeclaredId = True
  54. Attribute VB_Exposed = False
  55. ' Author: Marek Letosnik
  56. ' letosnik@iol.cz
  57.  
  58. Private Sub cmdSearch_Click()
  59.   If txWhatSearch = "" Then Exit Sub
  60.   Search cmEngines.ListIndex, txWhatSearch
  61. End Sub
  62.  
  63. Private Sub Form_Load()
  64.   cmEngines.ListIndex = 0
  65. End Sub
  66.